home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / tex / inputs / fontsel / oldlfont.sty < prev    next >
Text File  |  1991-05-20  |  5KB  |  145 lines
  1. %% 
  2. %% This is file `oldlfont.sty' generated
  3. %% on <1990/6/30> with the docstrip utility (v1.1k). 
  4. %% 
  5. %% The original source file was `oldlfont.doc'.
  6. %% 
  7. %% 
  8. %% Copyright (C) 1989,1990 by Frank Mittelbach, Rainer Schoepf. 
  9. %% All rights reserved. 
  10. %% 
  11. %% IMPORTANT NOTICE: 
  12. %% 
  13. %% You are not allowed to change this file. You may however copy this file 
  14. %% to a file with a different name and then change the copy. 
  15. %% 
  16. %% You are allowed to distribute this file under the condition that it is 
  17. %% distributed together with all files mentioned in readme.mz3. If you 
  18. %% receive only some of these files from someone, complain! 
  19. %% 
  20. %% You are NOT ALLOWED to distribute this file alone. You are NOT ALLOWED 
  21. %% to take money for the distribution or use of either this file or a 
  22. %% changed version, except for a nominal charge for copying etc. 
  23. %% 
  24. %% Error Reports in case of UNCHANGED versions to 
  25. %% 
  26. %% F. Mittelbach 
  27. %% Eichenweg 29 
  28. %% D-6500 Mainz 1 
  29. %% Federal Republic of Germany 
  30. %% Bitnet: <PZF5HZ@DRUEDS2> 
  31. %% 
  32. %% or: 
  33. %% R. Sch\"opf 
  34. %% Inst. f. Theor. Physik 
  35. %% der Universit\"at Heidelberg 
  36. %% Philosophenweg 16 
  37. %% D-6900 Heidelberg 
  38. %% Federal Republic of Germany 
  39. %% Bitnet: <BK4@DHDURZ1> 
  40. %% 
  41. %% 
  42. \def\fileversion{v1.2i}
  43. \def\filedate{90/06/29}
  44. \def\docdate {90/06/29}
  45.  
  46. %% \CheckSum{220}
  47. %% \CharacterTable
  48. %%  {Upper-case    \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
  49. %%   Lower-case    \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
  50. %%   Digits        \0\1\2\3\4\5\6\7\8\9
  51. %%   Exclamation   \!     Double quote  \"     Hash (number) \#
  52. %%   Dollar        \$     Percent       \%     Ampersand     \&
  53. %%   Acute accent  \'     Left paren    \(     Right paren   \)
  54. %%   Asterisk      \*     Plus          \+     Comma         \,
  55. %%   Minus         \-     Point         \.     Solidus       \/
  56. %%   Colon         \:     Semicolon     \;     Less than     \<
  57. %%   Equals        \=     Greater than  \>     Question mark \?
  58. %%   Commercial at \@     Left bracket  \[     Backslash     \\
  59. %%   Right bracket \]     Circumflex    \^     Underscore    \_
  60. %%   Grave accent  \`     Left brace    \{     Vertical bar  \|
  61. %%   Right brace   \}     Tilde         \~}
  62. %% Copyright (C) 1989,1990 Frank Mittelbach and Rainer Sch\"opf,
  63. %% all rights reserved.
  64.  
  65. \ifx\ds@oldlfont\undefined
  66.    \let\ds@oldlfont\@empty
  67. \else \endinput \fi
  68. \immediate
  69.  \write\sixt@@n{Style-Option: `oldlfont'
  70.  \fileversion\space <\filedate>  (FMi and RmS)}
  71. \immediate
  72.  \write\sixt@@n{English Documentation
  73.  \@spaces\@spaces\space <\docdate>  (FMi and RmS)}
  74. \def\newfont#1#2{\@ifdefinable#1{\global
  75.                         \font#1=#2\relax}}
  76. \def\symbol#1{\char #1\relax}
  77. \def\@gobbletwo#1#2{}
  78. \let\load\@gobbletwo
  79. \new@mathgroup\bffam
  80. \new@mathgroup\sffam
  81. \new@mathgroup\ttfam
  82. \new@mathgroup\itfam
  83. \new@mathgroup\scfam
  84. \new@mathgroup\slfam
  85. \new@internalmathalphabet\mathbf\bffam{cmr}{bx}{n}
  86. \new@internalmathalphabet\mathsf\sffam{cmss}{m}{n}
  87. \new@internalmathalphabet\mathtt\ttfam{cmtt}{m}{n}
  88. \new@internalmathalphabet\mathit\itfam{cmr}{m}{it}
  89. \new@internalmathalphabet\mathsc\scfam{cmr}{m}{sc}
  90. \new@internalmathalphabet\mathsl\slfam{cmr}{m}{sl}
  91. \def\prm{\family\rmdefault
  92.     \series\default@series
  93.     \shape\default@shape\selectfont
  94.     \mathrm}
  95. \def\psf{\family\sfdefault
  96.     \series\default@series
  97.     \shape\default@shape\selectfont\mathsf}
  98. \def\psl{\family\rmdefault
  99.     \series\default@series
  100.     \shape\sldefault\selectfont\mathsl}
  101. \def\pbf{\family\rmdefault
  102.     \series\bfdefault
  103.     \shape\default@shape\selectfont\mathbf}
  104. \def\psc{\family\rmdefault
  105.     \series\default@series
  106.     \shape\scdefault\selectfont\mathsc}
  107. \def\pit{\family\rmdefault
  108.     \series\default@series
  109.     \shape\itdefault\selectfont\mathit}
  110. \def\ptt{\family\ttdefault
  111.     \series\default@series
  112.     \shape\default@shape\selectfont\mathtt}
  113. \def\em{\protect\pem}
  114. \def\pem{\@nomath\em \ifdim \fontdimen\@ne\font >\z@
  115.                        \rm \else \it \fi}
  116. \def\@setsize#1#2#3#4{\@nomath#1\size{#4}{#2}%
  117.     \family\default@family
  118.     \series\default@series\shape\default@shape
  119.     \selectfont}
  120.  
  121. \let\math@bgroup\@empty
  122. \let\math@egroup\@empty
  123.  \ifx\lyfam\undefined
  124.  \new@mathgroup\lyfam
  125.  \define@mathgroup\mv@normal\lyfam
  126.        {lasy}{m}{n}
  127.  \define@mathgroup\mv@bold\lyfam
  128.        {lasy}{b}{n}
  129.  
  130. \edef\@tempa{\hexnumber@\lyfam}
  131. \mathchardef\mho"0\@tempa 30
  132. \mathchardef\Join"3\@tempa 31
  133. \mathchardef\Box"0\@tempa 32
  134. \mathchardef\Diamond"0\@tempa 33
  135. \mathchardef\leadsto"3\@tempa 3B
  136. \mathchardef\sqsubset"3\@tempa 3C
  137. \mathchardef\sqsupset"3\@tempa 3D
  138. \mathchardef\lhd"3\@tempa 01
  139. \mathchardef\unlhd"3\@tempa 02
  140. \mathchardef\rhd"3\@tempa 03
  141. \mathchardef\unrhd"3\@tempa 04
  142. \endinput
  143. %% 
  144. %% End of file `oldlfont.sty'.
  145.